program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, n, a, b:integer;
  x, y:real;
  fout: textfile;
begin
  a:=0;
  b:=0;
  assignFile(fout,'unrun.txt');
  rewrite(fout);
  for i:=0 to 100000000 do
  begin
    x:=2*random;
    y:=2*random;
    if ((x-1)*(x-1)+(y-1)*(y-1)<=1) then
      a:=a+1;
      b:=b+1;
    if (a mod 100000=0) then
      writeln(fout, 4*a/b:0:16);
  end;
end.
